home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pie_oro1.zip / PIE-LINE.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-04-10  |  39KB  |  1,226 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  TINTEGER016(5)
  35.     String   STRING001
  36.     String   STRING002
  37.     String   STRING003
  38.     String   STRING004
  39.     String   STRING005
  40.     String   STRING006
  41.     String   TSTRING007(5)
  42.     String   STRING008
  43.     String   STRING009
  44.     String   STRING010
  45.     String   STRING011
  46.     String   TSTRING012(10)
  47.     String   TSTRING013(10)
  48.     String   STRING014
  49.     String   STRING015
  50.     String   STRING016
  51.     String   STRING017
  52.     String   STRING018
  53.     String   STRING019
  54.     String   TSTRING020(1,5)
  55.     String   TSTRING021(6)
  56.     String   TSTRING022(5,59)
  57.     String   STRING023
  58.     Declare  Procedure PROC001(Integer INTEGER017, Integer INTEGER018, String STRING024)
  59.     Declare  Procedure PROC002()
  60.  
  61. ;------------------------------------------------------------------------------
  62.  
  63.     Print "@POFF@"
  64.     Log "[ONELINER OPPEND]", 1
  65.     INTEGER004 = 60
  66.     INTEGER002 = 1
  67.     STRING003 = "ANONUMOUS"
  68.     If (!Exist(PPEPath() + "ONELINE.CNF")) Gosub LABEL054
  69.     If (!Exist(PPEPath() + "WORDS.DAT")) Gosub LABEL055
  70.     If (!Exist(PPEPath() + "ONELINER.PCB")) Print "@X04FILE IS MISSING!! ONELINE.PCB"
  71.     If (!Exist(PPEPath() + "ONELINER.PCB")) Delay 30
  72.     If (!Exist(PPEPath() + "ONELINER.PCB")) End
  73.     If (!Exist(PPEPath() + "LINERS.DAT")) Gosub LABEL056
  74.     If (!Exist(PPEPath() + "LINEDATA.DAT")) Gosub LABEL057
  75.     If (!Exist(PPEPath() + "LAST5.DAT")) Gosub LABEL058
  76.     FOpen 1, PPEPath() + "ONELINE.CNF", 2, 0
  77.     FGet 1, INTEGER007
  78.     FGet 1, INTEGER006
  79.     FGet 1, STRING006
  80.     FGet 1, STRING005
  81.     FGet 1, STRING014
  82.     FGet 1, STRING015
  83.     FGet 1, STRING016
  84.     FGet 1, STRING017
  85.     FGet 1, STRING018
  86.     FGet 1, STRING019
  87.     FClose 1
  88.     INTEGER015 = 1
  89.     GetUser
  90.     Gosub LABEL046
  91.     DispFile PPEPath() + "ONELINER.PCB", 1
  92.     Gosub LABEL040
  93.     Gosub LABEL049
  94.     Gosub LABEL047
  95.     If (U_Sec < INTEGER007) AnsiPos 1, 23
  96.     If (U_Sec < INTEGER007) Print "    @X08Y@X070@XOFUR AXX IS TOO LOW, UPL0AD TO WRITE ONELIN@X07E@X08R"
  97.     If (U_Sec < INTEGER007) Goto LABEL006
  98.     If (U_Sec >= INTEGER006) AnsiPos 1, 23
  99.     If (U_Sec >= INTEGER006) Print "             @X07  USE@X08 [T@X07A@X0FB@X08]@X07 FOR SYSOP MENU                                  "
  100.     If (U_Sec >= INTEGER006) Goto LABEL006
  101.     AnsiPos 1, 23
  102.     Print "            @X08U@X07S@X0FE ", Chr(30), "/", Chr(31), " KEYS, ENTER TO SELE@X07C@X08T"
  103.     Goto LABEL006
  104.     :LABEL001
  105.     Inc INTEGER003
  106.     If (INTEGER003 > INTEGER004) Gosub LABEL004
  107.     STRING023 = Inkey()
  108.     Inc TINTEGER016(1)
  109.     If (TINTEGER016(1) > 59) TINTEGER016(1) = 1
  110.     AnsiPos 53, 19
  111.     Print "", TSTRING022(1, TINTEGER016(1))
  112.     If (STRING023 == Chr(27)) Goto LABEL039
  113.     If (STRING023 == "DOWN") Goto LABEL006
  114.     If (STRING023 == "UP") Goto LABEL007
  115.     If (STRING023 == Chr(9)) Gosub LABEL008
  116.     If (STRING023 == Chr(13)) Goto LABEL023
  117.     Delay 1
  118.     Goto LABEL001
  119.     :LABEL002
  120.     Inc INTEGER003
  121.     If (INTEGER003 > INTEGER004) Gosub LABEL004
  122.     STRING023 = Inkey()
  123.     Inc TINTEGER016(2)
  124.     If (TINTEGER016(2) > 58) TINTEGER016(2) = 1
  125.     AnsiPos 53, 20
  126.     Print "", TSTRING022(2, TINTEGER016(2))
  127.     If (STRING023 == Chr(27)) Goto LABEL039
  128.     If (STRING023 == "UP") Goto LABEL005
  129.     If (STRING023 == "DOWN") Goto LABEL007
  130.     If (STRING023 == Chr(13)) Gosub LABEL039
  131.     If (STRING023 == Chr(9)) Gosub LABEL008
  132.     Delay 1
  133.     Goto LABEL002
  134.     :LABEL003
  135.     Inc INTEGER003
  136.     If (INTEGER003 > INTEGER004) Gosub LABEL004
  137.     STRING023 = Inkey()
  138.     Inc TINTEGER016(3)
  139.     If (TINTEGER016(3) > 58) TINTEGER016(3) = 1
  140.     AnsiPos 53, 21
  141.     Print "", TSTRING022(3, TINTEGER016(3))
  142.     If (STRING023 == Chr(27)) Goto LABEL039
  143.     If (STRING023 == "UP") Goto LABEL006
  144.     If (STRING023 == "DOWN") Goto LABEL005
  145.     If (STRING023 == Chr(13)) Gosub LABEL052
  146.     If (STRING023 == Chr(9)) Gosub LABEL008
  147.     Delay 1
  148.     Goto LABEL003
  149.     :LABEL004
  150.     INTEGER003 = 0
  151.     If (INTEGER002 > 3) INTEGER002 = 0
  152.     Inc INTEGER002
  153.     If (INTEGER002 == 1) Gosub LABEL048
  154.     If (INTEGER002 == 1) Gosub LABEL049
  155.     If (INTEGER002 == 2) Gosub LABEL048
  156.     If (INTEGER002 == 2) Gosub LABEL050
  157.     If (INTEGER002 == 3) Gosub LABEL048
  158.     If (INTEGER002 == 3) Gosub LABEL051
  159.     Return
  160.     :LABEL005
  161.     AnsiPos 53, 20
  162.     Print "", TSTRING022(2, 1)
  163.     AnsiPos 53, 21
  164.     Print "", TSTRING022(3, 1)
  165.     Goto LABEL001
  166.     :LABEL006
  167.     AnsiPos 53, 19
  168.     Print "", TSTRING022(1, 1)
  169.     AnsiPos 53, 21
  170.     Print "", TSTRING022(3, 1)
  171.     Goto LABEL002
  172.     :LABEL007
  173.     AnsiPos 53, 19
  174.     Print "", TSTRING022(1, 1)
  175.     AnsiPos 53, 20
  176.     Print "", TSTRING022(2, 1)
  177.     Goto LABEL003
  178.     :LABEL008
  179.     If (U_Sec < INTEGER006) Return
  180.     GetUser
  181.     TINTEGER016(5) = 1
  182.     AnsiPos 13, 23
  183.     Print "", TSTRING022(5, TINTEGER016(5))
  184.     :LABEL009
  185.     STRING023 = Inkey()
  186.     If (STRING023 == "") Goto LABEL009
  187.     If (STRING023 == Chr(27)) AnsiPos 1, 23
  188.     If (STRING023 == Chr(27)) Print "             @X07  USE@X08 [T@X07A@X0FB@X08]@X07 FOR SYSOP MENU                                 "
  189.     If (STRING023 == Chr(27)) Gosub LABEL053
  190.     If (STRING023 == Chr(27)) Return
  191.     If (STRING023 == "LEFT") Dec TINTEGER016(5)
  192.     If (STRING023 == "RIGHT") Inc TINTEGER016(5)
  193.     If (STRING023 == Chr(13)) Goto LABEL010
  194.     If (TINTEGER016(5) > 4) TINTEGER016(5) = 1
  195.     If (TINTEGER016(5) < 1) TINTEGER016(5) = 4
  196.     AnsiPos 13, 23
  197.     Print "", TSTRING022(5, TINTEGER016(5))
  198.     Goto LABEL009
  199.     :LABEL010
  200.     If (TINTEGER016(5) == 1) Goto LABEL011
  201.     If (TINTEGER016(5) == 2) Gosub LABEL020
  202.     If (TINTEGER016(5) == 3) Gosub LABEL059
  203.     If (TINTEGER016(5) == 4) Gosub LABEL062
  204.     Goto LABEL009
  205.     :LABEL011
  206.     INTEGER015 = 1
  207.     AnsiPos 5, 12 + INTEGER015
  208.     Print "@X08■"
  209.     AnsiPos 48, 12 + INTEGER015
  210.     Print "@X08■"
  211.     Delay 1
  212.     AnsiPos 5, 12 + INTEGER015
  213.     Print "@X07■"
  214.     AnsiPos 48, 12 + INTEGER015
  215.     Print "@X07■"
  216.     Delay 1
  217.     AnsiPos 5, 12 + INTEGER015
  218.     Print "@X0F■"
  219.     AnsiPos 48, 12 + INTEGER015
  220.     Print "@X0F■"
  221.     :LABEL012
  222.     STRING023 = Inkey()
  223.     If (STRING023 == Chr(27)) AnsiPos 5, 12 + INTEGER015
  224.     If (STRING023 == Chr(27)) Print " "
  225.     If (STRING023 == Chr(27)) AnsiPos 48, 12 + INTEGER015
  226.     If (STRING023 == Chr(27)) Print " "
  227.     If (STRING023 == Chr(27)) Goto LABEL009
  228.     If (STRING023 == "") Goto LABEL012
  229.     If (STRING023 == "DOWN") Gosub LABEL013
  230.     If (STRING023 == "UP") Gosub LABEL014
  231.     If (STRING023 == Chr(13)) Gosub LABEL015
  232.     Goto LABEL012
  233.     :LABEL013
  234.     If (INTEGER015 > 8) Goto LABEL012
  235.     Inc INTEGER015
  236.     AnsiPos 5, 12 + INTEGER015 - 1
  237.     Print "@X0F■"
  238.     AnsiPos 48, 12 + INTEGER015 - 1
  239.     Print "@X0F■"
  240.     Delay 1
  241.     AnsiPos 5, 12 + INTEGER015 - 1
  242.     Print "@X07■"
  243.     AnsiPos 48, 12 + INTEGER015 - 1
  244.     Print "@X07■"
  245.     Delay 1
  246.     AnsiPos 5, 12 + INTEGER015 - 1
  247.     Print "@X08■"
  248.     AnsiPos 48, 12 + INTEGER015 - 1
  249.     Print "@X08■"
  250.     Delay 1
  251.     AnsiPos 5, 12 + INTEGER015 - 1
  252.     Print " "
  253.     AnsiPos 48, 12 + INTEGER015 - 1
  254.     Print " "
  255.     Delay 1
  256.     AnsiPos 5, 12 + INTEGER015
  257.     Print "@X08■"
  258.     AnsiPos 48, 12 + INTEGER015
  259.     Print "@X08■"
  260.     Delay 1
  261.     AnsiPos 5, 12 + INTEGER015
  262.     Print "@X07■"
  263.     AnsiPos 48, 12 + INTEGER015
  264.     Print "@X07■"
  265.     Delay 1
  266.     AnsiPos 5, 12 + INTEGER015
  267.     Print "@X0F■"
  268.     AnsiPos 48, 12 + INTEGER015
  269.     Print "@X0F■"
  270.     Return
  271.     :LABEL014
  272.     If (INTEGER015 < 2) Goto LABEL012
  273.     Dec INTEGER015
  274.     AnsiPos 5, 12 + INTEGER015 + 1
  275.     Print "@X0F■"
  276.     AnsiPos 48, 12 + INTEGER015 + 1
  277.     Print "@X0F■"
  278.     Delay 1
  279.     AnsiPos 5, 12 + INTEGER015 + 1
  280.     Print "@X07■"
  281.     AnsiPos 48, 12 + INTEGER015 + 1
  282.     Print "@X07■"
  283.     Delay 1
  284.     AnsiPos 5, 12 + INTEGER015 + 1
  285.     Print "@X08■"
  286.     AnsiPos 48, 12 + INTEGER015 + 1
  287.     Print "@X08■"
  288.     Delay 1
  289.     AnsiPos 5, 12 + INTEGER015 + 1
  290.     Print " "
  291.     AnsiPos 48, 12 + INTEGER015 + 1
  292.     Print " "
  293.     Delay 1
  294.     AnsiPos 5, 12 + INTEGER015
  295.     Print "@X08■"
  296.     AnsiPos 48, 12 + INTEGER015
  297.     Print "@X08■"
  298.     Delay 1
  299.     AnsiPos 5, 12 + INTEGER015
  300.     Print "@X07■"
  301.     AnsiPos 48, 12 + INTEGER015
  302.     Print "@X07■"
  303.     Delay 1
  304.     AnsiPos 5, 12 + INTEGER015
  305.     Print "@X0F■"
  306.     AnsiPos 48, 12 + INTEGER015
  307.     Print "@X0F■"
  308.     Return
  309.     :LABEL015
  310.     AnsiPos 5, 12 + INTEGER015
  311.     Print "                                            "
  312.     AnsiPos 5, 12 + INTEGER015
  313.     Print "   @X07BY: @X0F", Left(TSTRING013(INTEGER015), 17), "@X07 NUKE?  [Yes]-[@X0FNO@X07]"
  314.     :LABEL016
  315.     AnsiPos 5, 12 + INTEGER015
  316.     Print "   @X07BY: @X0F", Left(TSTRING013(INTEGER015), 17), "@X07 NUKE?  [Yes]-[@X0FNO@X07]"
  317.     :LABEL017
  318.     STRING023 = Inkey()
  319.     If (STRING023 == "LEFT") Goto LABEL018
  320.     If (STRING023 == Chr(13)) AnsiPos 5, 12 + INTEGER015
  321.     If (STRING023 == Chr(13)) Print "                                            "
  322.     If (STRING023 == Chr(13)) PROC001(28, 12 + INTEGER015, STRING014 + TSTRING012(INTEGER015))
  323.     If (STRING023 == Chr(13)) AnsiPos 5, 12 + INTEGER015
  324.     If (STRING023 == Chr(13)) Print "@X0F■"
  325.     If (STRING023 == Chr(13)) AnsiPos 48, 12 + INTEGER015
  326.     If (STRING023 == Chr(13)) Print "@X0F■"
  327.     If (STRING023 == Chr(13)) Return
  328.     Goto LABEL017
  329.     :LABEL018
  330.     AnsiPos 5, 12 + INTEGER015
  331.     Print "   @X07BY: @X0F", Left(TSTRING013(INTEGER015), 17), "@X07 NUKE?  [@X0FYES@X07]-[No]"
  332.     :LABEL019
  333.     STRING023 = Inkey()
  334.     If (STRING023 == "RIGHT") Goto LABEL016
  335.     If (STRING023 == Chr(13)) TSTRING012(INTEGER015) = STRING006
  336.     If (STRING023 == Chr(13)) AnsiPos 5, 12 + INTEGER015
  337.     If (STRING023 == Chr(13)) Print "                                            "
  338.     If (STRING023 == Chr(13)) PROC001(28, 12 + INTEGER015, STRING014 + TSTRING012(INTEGER015))
  339.     If (STRING023 == Chr(13)) AnsiPos 5, 12 + INTEGER015
  340.     If (STRING023 == Chr(13)) Print "@X0F■"
  341.     If (STRING023 == Chr(13)) AnsiPos 48, 12 + INTEGER015
  342.     If (STRING023 == Chr(13)) Print "@X0F■"
  343.     If (STRING023 == Chr(13)) Return
  344.     Goto LABEL019
  345.     :LABEL020
  346.     Gosub LABEL044
  347.     AnsiPos 5, 13
  348.     Print "  @X0FLINE [@X071@X0F]  [@X07", TSTRING013(1), "@X0F]"
  349.     AnsiPos 5, 14
  350.     Print "  @X0FLINE [@X072@X0F]  [@X07", TSTRING013(2), "@X0F]"
  351.     AnsiPos 5, 15
  352.     Print "  @X0FLINE [@X073@X0F]  [@X07", TSTRING013(3), "@X0F]"
  353.     AnsiPos 5, 16
  354.     Print "  @X0FLINE [@X074@X0F]  [@X07", TSTRING013(4), "@X0F]"
  355.     AnsiPos 5, 17
  356.     Print "  @X0FLINE [@X075@X0F]  [@X07", TSTRING013(5), "@X0F]"
  357.     AnsiPos 5, 18
  358.     Print "  @X0FLINE [@X076@X0F]  [@X07", TSTRING013(6), "@X0F]"
  359.     AnsiPos 5, 19
  360.     Print "  @X0FLINE [@X077@X0F]  [@X07", TSTRING013(7), "@X0F]"
  361.     AnsiPos 5, 20
  362.     Print "  @X0FLINE [@X078@X0F]  [@X07", TSTRING013(8), "@X0F]"
  363.     AnsiPos 5, 21
  364.     Print "  @X0FLINE [@X079@X0F]  [@X07", TSTRING013(9), "@X0F]"
  365.     :LABEL021
  366.     STRING023 = Inkey()
  367.     If (STRING023 == Chr(27)) Goto LABEL022
  368.     Goto LABEL021
  369.     :LABEL022
  370.     STRING023 = ""
  371.     Gosub LABEL044
  372.     PROC001(28, 13, STRING014 + TSTRING012(1))
  373.     PROC001(28, 14, STRING014 + TSTRING012(2))
  374.     PROC001(28, 15, STRING014 + TSTRING012(3))
  375.     PROC001(28, 16, STRING014 + TSTRING012(4))
  376.     PROC001(28, 17, STRING014 + TSTRING012(5))
  377.     PROC001(28, 18, STRING014 + TSTRING012(6))
  378.     PROC001(28, 19, STRING014 + TSTRING012(7))
  379.     PROC001(28, 20, STRING014 + TSTRING012(8))
  380.     PROC001(28, 21, STRING014 + TSTRING012(9))
  381.     Return
  382.     :LABEL023
  383.     If (U_Sec < INTEGER007) Goto LABEL005
  384.     Gosub LABEL044
  385.     PROC001(28, 13, STRING014 + TSTRING012(2))
  386.     PROC001(28, 14, STRING014 + TSTRING012(3))
  387.     PROC001(28, 15, STRING014 + TSTRING012(4))
  388.     PROC001(28, 16, STRING014 + TSTRING012(5))
  389.     PROC001(28, 17, STRING014 + TSTRING012(6))
  390.     PROC001(28, 18, STRING014 + TSTRING012(7))
  391.     PROC001(28, 19, STRING014 + TSTRING012(8))
  392.     PROC001(28, 20, STRING014 + TSTRING012(9))
  393.     AnsiPos 1, 23
  394.     Print "  @X08ENTER LINE @X07[@X0F·······································@X07] "
  395.     AnsiPos 58, 23
  396.     Print "", TSTRING022(4, 9)
  397.     TINTEGER016(4) = 9
  398.     INTEGER009 = 1
  399.     AnsiPos 25, 21
  400.     Print "@X07" + Chr(34) + Chr(34)
  401.     AnsiPos 26, 21
  402.     :LABEL024
  403.     STRING023 = Inkey()
  404.     If (STRING023 == "") Goto LABEL024
  405.     If (STRING023 == "LEFT") INTEGER009 = 0
  406.     If (STRING023 == "LEFT") Goto LABEL026
  407.     If (STRING023 == "RIGHT") INTEGER009 = 1
  408.     If (STRING023 == "RIGHT") Goto LABEL027
  409.     If (STRING023 == Chr(27)) Goto LABEL030
  410.     If (STRING023 == Chr(13)) Gosub LABEL029
  411.     STRING023 = Left(STRING023, 1)
  412.     If (STRING023 == Chr(8)) Goto LABEL025
  413.     If (INTEGER008 > 38) Goto LABEL024
  414.     Inc INTEGER008
  415.     AnsiPos 14 + INTEGER008, 23
  416.     Print "@X08", STRING023
  417.     Delay 1
  418.     AnsiPos 14 + INTEGER008, 23
  419.     Print "@X07", STRING023
  420.     Delay 1
  421.     AnsiPos 14 + INTEGER008, 23
  422.     Print "@X0F", STRING023
  423.     If (INTEGER009 == 0) Gosub LABEL028
  424.     STRING008 = STRING008 + STRING023
  425.     AnsiPos 5, 21
  426.     Print "                                               "
  427.     PROC001(26, 21, STRING008)
  428.     AnsiPos 15 + INTEGER008, 23
  429.     Goto LABEL024
  430.     :LABEL025
  431.     If (INTEGER008 <= 0) Goto LABEL024
  432.     Dec INTEGER008
  433.     AnsiPos 15 + INTEGER008, 23
  434.     Print "@X08·"
  435.     Delay 1
  436.     AnsiPos 15 + INTEGER008, 23
  437.     Print "@X07·"
  438.     Delay 1
  439.     AnsiPos 15 + INTEGER008, 23
  440.     Print "@X0F·"
  441.     STRING008 = Left(STRING008, Len(STRING008) - 1)
  442.     AnsiPos 5, 21
  443.     Print "                                              "
  444.     PROC001(26, 21, STRING008)
  445.     AnsiPos 15 + INTEGER008, 23
  446.     Goto LABEL024
  447.     :LABEL026
  448.     If (INTEGER009 == 1) Goto LABEL024
  449.     AnsiPos 58, 23
  450.     Dec TINTEGER016(4)
  451.     Print "", TSTRING022(4, TINTEGER016(4))
  452.     Delay 1
  453.     If (TINTEGER016(4) < 2) STRING023 = ""
  454.     If (TINTEGER016(4) < 2) Goto LABEL024
  455.     Goto LABEL026
  456.     :LABEL027
  457.     If (INTEGER009 == 0) Goto LABEL024
  458.     AnsiPos 58, 23
  459.     Inc TINTEGER016(4)
  460.     Print "", TSTRING022(4, TINTEGER016(4))
  461.     Delay 1
  462.     If (TINTEGER016(4) > 9) STRING023 = ""
  463.     If (TINTEGER016(4) > 9) Goto LABEL024
  464.     Goto LABEL027
  465.     :LABEL028
  466.     STRING023 = Replace(Upper(STRING023), "A", "Æ")
  467.     STRING023 = Replace(Upper(STRING023), "E", "ε")
  468.     STRING023 = Replace(Upper(STRING023), "N", "∩")
  469.     Return
  470.     :LABEL029
  471.     If (STRING008 == "") Goto LABEL030
  472.     AnsiPos 1, 23
  473.     Print "          @X07W@X07A@X0FNNA BE, ANONYMOU@X07S@X07?   @X07[@X0FYES@X07]-@X07[No!]                                  "
  474.     STRING009 = STRING003
  475.     AnsiPos 1, 23
  476.     Goto LABEL031
  477.     :LABEL030
  478.     INTEGER008 = 0
  479.     STRING008 = ""
  480.     If (U_Sec >= INTEGER006) AnsiPos 1, 23
  481.     If (U_Sec >= INTEGER006) Print "             @X07  USE@X08 [T@X07A@X0FB@X08]@X07 FOR SYSOP MENU                                   "
  482.     If (U_Sec < INTEGER006) AnsiPos 1, 23
  483.     If (U_Sec < INTEGER006) Print "            @X08U@X07S@X0FE ", Chr(30) , "/", Chr(31) , " KEYS, ENTER TO SELE@X07C@X08T                                       "
  484.     Gosub LABEL045
  485.     Goto LABEL005
  486.     :LABEL031
  487.     STRING023 = Inkey()
  488.     If (STRING023 == "") Goto LABEL031
  489.     If (STRING023 == "RIGHT") STRING009 = U_Name()
  490.     If (STRING023 == "RIGHT") AnsiPos 1, 23
  491.     If (STRING023 == "RIGHT") Print "          @X07W@X07A@X0FNNA BE, ANONYMOU@X07S@X07?   @X07[Yes]-@X07[@X0FNO!@X07]                                "
  492.     If (STRING023 == "RIGHT") AnsiPos 1, 23
  493.     If (STRING023 == "LEFT") STRING009 = STRING003
  494.     If (STRING023 == "LEFT") AnsiPos 1, 23
  495.     If (STRING023 == "LEFT") Print "          @X07W@X07A@X0FNNA BE, ANONYMOU@X07S@X07?   @X07[@X0FYES@X07]-@X07[No!]                                 "
  496.     If (STRING023 == "LEFT") AnsiPos 1, 23
  497.     If (STRING023 == Chr(13)) Goto LABEL032
  498.     Goto LABEL031
  499.     :LABEL032
  500.     STRING010 = Date()
  501.     STRING011 = Left(Time(), 5)
  502.     STRING001 = STRING008
  503.     Gosub LABEL036
  504.     Gosub LABEL048
  505.     FClose 1
  506.     AnsiPos 55, 13
  507.     Print "@X08FORBIDDEN WORD CHECK!"
  508.     FOpen 1, PPEPath() + "WORDS.DAT", 2, 0
  509.     :LABEL033
  510.     FGet 1, STRING004
  511.     If (Upper(STRING004) == "*END*") FClose 1
  512.     If (Upper(STRING004) == "*END*") Inc INTEGER010
  513.     If (Upper(STRING004) == "*END*") Goto LABEL034
  514.     Inc TSTRING021(1)
  515.     AnsiPos 45, 12
  516.     Print "@X07", TSTRING020(1, TSTRING021(1))
  517.     If (TSTRING021(1) > 4) TSTRING021(1) = 0
  518.     Delay 1
  519.     INTEGER005 = InStr(Upper(STRING008), Upper(STRING004))
  520.     INTEGER005 = InStr(Upper(STRING001), Upper(STRING004))
  521.     If (INTEGER005 == 0) Goto LABEL033
  522.     AnsiPos 57, 14
  523.     STRING008 = ""
  524.     INTEGER008 = 0
  525.     Print "@X04FOUND, @X08 ABORTING!"
  526.     AnsiPos 57, 14
  527.     Delay 2
  528.     Print "@X0CFOUND, @X08 ABORTING!"
  529.     AnsiPos 57, 14
  530.     Delay 2
  531.     Print "@X0FFOUND, @X08 ABORTING!"
  532.     AnsiPos 57, 14
  533.     Delay 2
  534.     Print "@X0CFOUND, @X08 ABORTING!"
  535.     AnsiPos 57, 14
  536.     Delay 2
  537.     Print "@X04FOUND, @X08 ABORTING!"
  538.     FClose 1
  539.     Delay 10
  540.     Goto LABEL039
  541.     :LABEL034
  542.     Gosub LABEL035
  543.     Delay 18
  544.     AnsiPos 55, 14
  545.     Print "@X08UPDATING DATA!"
  546.     Gosub LABEL037
  547.     Delay 18
  548.     AnsiPos 55, 15
  549.     Print "@X08UPDATING LAST5!"
  550.     Gosub LABEL038
  551.     Delay 18
  552.     AnsiPos 55, 16
  553.     Print "@X08ALL DONE !!!"
  554.     Delay 18
  555.     Log "[USER WROTE LINE]", 1
  556.     Goto LABEL039
  557.     :LABEL035
  558.     Delete PPEPath() + "LINERS.DAT"
  559.     FOpen 1, PPEPath() + "LINERS.DAT", 2, 0
  560.     FPutLn 1, "", TSTRING012(2)
  561.     FPutLn 1, "", TSTRING013(2)
  562.     FPutLn 1, "", TSTRING012(3)
  563.     FPutLn 1, "", TSTRING013(3)
  564.     FPutLn 1, "", TSTRING012(4)
  565.     FPutLn 1, "", TSTRING013(4)
  566.     FPutLn 1, "", TSTRING012(5)
  567.     FPutLn 1, "", TSTRING013(5)
  568.     FPutLn 1, "", TSTRING012(6)
  569.     FPutLn 1, "", TSTRING013(6)
  570.     FPutLn 1, "", TSTRING012(7)
  571.     FPutLn 1, "", TSTRING013(7)
  572.     FPutLn 1, "", TSTRING012(8)
  573.     FPutLn 1, "", TSTRING013(8)
  574.     FPutLn 1, "", TSTRING012(9)
  575.     FPutLn 1, "", TSTRING013(9)
  576.     FPutLn 1, "", STRING008
  577.     FPutLn 1, "", U_Name()
  578.     FClose 1
  579.     Return
  580.     :LABEL036
  581.     STRING001 = Replace(Upper(STRING001), "Æ", "A")
  582.     STRING001 = Replace(Upper(STRING001), "ε", "E")
  583.     STRING001 = Replace(Upper(STRING001), "∩", "N")
  584.     Return
  585.     :LABEL037
  586.     Delete PPEPath() + "LINEDATA.DAT"
  587.     FOpen 1, PPEPath() + "LINEDATA.DAT", 2, 0
  588.     FPutLn 1, INTEGER010
  589.     FPutLn 1, STRING010
  590.     FPutLn 1, STRING011
  591.     FClose 1
  592.     Return
  593.     :LABEL038
  594.     Delete PPEPath() + "LAST5.DAT"
  595.     FOpen 1, PPEPath() + "LAST5.DAT", 2, 0
  596.     FPutLn 1, TSTRING007(2)
  597.     FPutLn 1, TSTRING007(3)
  598.     FPutLn 1, TSTRING007(4)
  599.     FPutLn 1, TSTRING007(5)
  600.     FPutLn 1, STRING009
  601.     FClose 1
  602.     Return
  603.     :LABEL039
  604.     Gosub LABEL044
  605.     AnsiPos 11, 13
  606.     Print " @X05     @X07▄@X08▄▄@X0F·    @X08▄@X07▄@X0F▄@X07▄     @X08▄▄▄@X07▄"
  607.     AnsiPos 11, 14
  608.     Print "@X05 @X0D▄ @X07■@X0F▀@X0D▄▄▄▄@X08▀■▄▀@X0D▄■ ▄@X08▓▄■▀▀ @X0D▄▄▄@X0F▀@X07■@X0D▄"
  609.     AnsiPos 11, 15
  610.     Print "@X08 @X05▌@X08▒ @X5D░▒▓@X0D ██@X05▄   ▄@X5D▒▓@X0D  @X05▄@X5D▒▓@X0D▀██@X5D▓▒@X08▐ @X0D▌"
  611.     AnsiPos 11, 16
  612.     Print "@X05▐@X08▐ @X05▐@X58░@X5D░▒@X07 @X0D█@X5D▓▒▒@X04 @X05▐@X58░@X5D░▒@X07 @X05▐@X58░@X5D░▒@X07 @X0D█@X5D▓▒░@X08▐▌@X05▌"
  613.     AnsiPos 11, 17
  614.     Print "@X0D▐@X08▐ @X58▓▒░@X5D░@X05▄@X5D▓▒░@X05▀ @X58▓▒░@X5D░@X07 @X58▓▒░@X5D░@X05▄@X5D▓▒░@X05▀  @X0D■"
  615.     AnsiPos 11, 18
  616.     Print "@X04 @X0D▌@X08▌█@X58▓▒░@X04 @X08▄@X07▄@X0F▄@X07▄ @X08█@X58▓▒░@X04 @X58█▓▒░@X07   @X05▄▄@X08▓ @X0D▌"
  617.     AnsiPos 11, 19
  618.     Print "@X05 ▌@X08▌▓█@X58▓▒@X08▐   @X07▐ @X08▓█@X58▓▒@X04 @X08▐@X38█@X58▓▒@X07  @X05█@X58░▒@X08▒@X05▐"
  619.     AnsiPos 11, 20
  620.     Print "@X04 @X0D▐ @X08▒▓█@X58▓@X08▐   ▐ ▒▓█@X58▓@X04 @X08■▀@X38█@X58▓@X08▄@X05█@X58░▒@X05▀@X08░ @X0D▌"
  621.     AnsiPos 11, 21
  622.     Print "@X08   CODE ORSON, ANSI RENEGADE"
  623.     Delay 2
  624.     AnsiPos 11, 21
  625.     Print "@X07   CODE ORSON, ANSI RENEGADE"
  626.     Delay 2
  627.     AnsiPos 11, 21
  628.     Print "@X0F   CODE ORSON, ANSI RENEGADE"
  629.     Delay 2
  630.     AnsiPos 11, 21
  631.     Print "@X07   CODE ORSON, ANSI RENEGADE"
  632.     Delay 2
  633.     AnsiPos 11, 21
  634.     Print "@X08   CODE ORSON, ANSI RENEGADE"
  635.     Delay 7
  636.     Cls
  637.     Print "@PON@"
  638.     Log "[ONELINER CLOSED]", 1
  639.     End
  640.     :LABEL040
  641.     GetUser
  642.     TSTRING022(1, 1) = "" + STRING014 + "" + STRING014 + "YEAH!, ENTER A COOL LINE"
  643.     TSTRING022(1, 2) = "" + STRING014 + "" + STRING015 + "Y" + STRING014 + "EAH!, ENTER A COOL LINE"
  644.     TSTRING022(1, 3) = "" + STRING014 + "" + STRING016 + "Y" + STRING015 + "E" + STRING014 + "AH!, ENTER A COOL LINE"
  645.     TSTRING022(1, 4) = "" + STRING014 + "" + STRING017 + "Y" + STRING016 + "E" + STRING015 + "A" + STRING014 + "H!, ENTER A COOL LINE"
  646.     TSTRING022(1, 5) = "" + STRING014 + "" + STRING016 + "Y" + STRING017 + "E" + STRING016 + "A" + STRING015 + "H" + STRING014 + "!, ENTER A COOL LINE"
  647.     TSTRING022(1, 6) = "" + STRING014 + "" + STRING015 + "Y" + STRING016 + "E" + STRING017 + "A" + STRING016 + "H" + STRING015 + "!" + STRING014 + ", ENTER A COOL LINE"
  648.     TSTRING022(1, 7) = "" + STRING014 + "Y" + STRING015 + "E" + STRING016 + "A" + STRING017 + "H" + STRING016 + "!" + STRING015 + ", " + STRING014 + "ENTER A COOL LINE"
  649.     TSTRING022(1, 8) = "" + STRING014 + "YE" + STRING015 + "A" + STRING016 + "H" + STRING017 + "!" + STRING016 + ", " + STRING014 + "ENTER A COOL LINE"
  650.     TSTRING022(1, 9) = "" + STRING014 + "YEA" + STRING015 + "H" + STRING016 + "!" + STRING017 + ", " + STRING015 + "E" + STRING014 + "NTER A COOL LINE"
  651.     TSTRING022(1, 10) = "" + STRING014 + "YEAH" + STRING015 + "!" + STRING016 + ", E" + STRING015 + "N" + STRING014 + "TER A COOL LINE"
  652.     TSTRING022(1, 11) = "" + STRING014 + "YEAH!" + STRING015 + ", " + STRING017 + "E" + STRING016 + "N" + STRING015 + "T" + STRING014 + "ER A COOL LINE"
  653.     TSTRING022(1, 12) = "" + STRING014 + "YEAH!, " + STRING016 + "E" + STRING017 + "N" + STRING016 + "T" + STRING015 + "E" + STRING014 + "R A COOL LINE"
  654.     TSTRING022(1, 13) = "" + STRING014 + "YEAH!, " + STRING015 + "E" + STRING016 + "N" + STRING017 + "T" + STRING016 + "E" + STRING015 + "R " + STRING014 + "A COOL LINE"
  655.     TSTRING022(1, 14) = "" + STRING014 + "YEAH!, E" + STRING015 + "N" + STRING016 + "T" + STRING017 + "E" + STRING016 + "R " + STRING014 + "A COOL LINE"
  656.     TSTRING022(1, 15) = "" + STRING014 + "YEAH!, EN" + STRING015 + "T" + STRING016 + "E" + STRING017 + "R " + STRING015 + "A " + STRING014 + "COOL LINE"
  657.     TSTRING022(1, 16) = "" + STRING014 + "YEAH!, ENT" + STRING015 + "E" + STRING016 + "R A " + STRING014 + "COOL LINE"
  658.     TSTRING022(1, 17) = "" + STRING014 + "YEAH!, ENTE" + STRING015 + "R " + STRING017 + "A " + STRING015 + "C" + STRING014 + "OOL LINE"
  659.     TSTRING022(1, 18) = "" + STRING014 + "YEAH!, ENTER " + STRING016 + "A C" + STRING015 + "O" + STRING014 + "OL LINE"
  660.     TSTRING022(1, 19) = "" + STRING014 + "YEAH!, ENTER " + STRING015 + "A " + STRING017 + "C" + STRING016 + "O" + STRING015 + "O" + STRING014 + "L LINE"
  661.     TSTRING022(1, 20) = "" + STRING014 + "YEAH!, ENTER A " + STRING016 + "C" + STRING017 + "O" + STRING016 + "O" + STRING015 + "L " + STRING014 + "LINE"
  662.     TSTRING022(1, 21) = "" + STRING014 + "YEAH!, ENTER A " + STRING015 + "C" + STRING016 + "O" + STRING017 + "O" + STRING016 + "L " + STRING014 + "LINE"
  663.     TSTRING022(1, 22) = "" + STRING014 + "YEAH!, ENTER A C" + STRING015 + "O" + STRING016 + "O" + STRING017 + "L " + STRING015 + "L" + STRING014 + "INE"
  664.     TSTRING022(1, 23) = "" + STRING014 + "YEAH!, ENTER A CO" + STRING015 + "O" + STRING016 + "L L" + STRING015 + "I" + STRING014 + "NE"
  665.     TSTRING022(1, 24) = "" + STRING014 + "YEAH!, ENTER A COO" + STRING015 + "L " + STRING017 + "L" + STRING016 + "I" + STRING015 + "N" + STRING014 + "E"
  666.     TSTRING022(1, 25) = "" + STRING014 + "YEAH!, ENTER A COOL " + STRING016 + "L" + STRING017 + "I" + STRING016 + "N" + STRING015 + "E"
  667.     TSTRING022(1, 26) = "" + STRING014 + "YEAH!, ENTER A COOL " + STRING015 + "L" + STRING016 + "I" + STRING017 + "N" + STRING016 + "E"
  668.     TSTRING022(1, 27) = "" + STRING014 + "YEAH!, ENTER A COOL L" + STRING015 + "I" + STRING016 + "N" + STRING017 + "E"
  669.     TSTRING022(1, 28) = "" + STRING014 + "YEAH!, ENTER A COOL LI" + STRING015 + "N" + STRING016 + "E"
  670.     TSTRING022(1, 29) = "" + STRING014 + "YEAH!, ENTER A COOL LIN" + STRING015 + "E"
  671.     TSTRING022(1, 30) = "" + STRING014 + "YEAH!, ENTER A COOL LINE"
  672.     TSTRING022(1, 31) = "" + STRING014 + "YEAH!, ENTER A COOL LIN" + STRING015 + "E"
  673.     TSTRING022(1, 32) = "" + STRING014 + "YEAH!, ENTER A COOL LI" + STRING015 + "N" + STRING016 + "E"
  674.     TSTRING022(1, 33) = "" + STRING014 + "YEAH!, ENTER A COOL L" + STRING015 + "I" + STRING016 + "N" + STRING017 + "E"
  675.     TSTRING022(1, 34) = "" + STRING014 + "YEAH!, ENTER A COOL " + STRING015 + "L" + STRING016 + "I" + STRING017 + "N" + STRING016 + "E"
  676.     TSTRING022(1, 35) = "" + STRING014 + "YEAH!, ENTER A COOL " + STRING016 + "L" + STRING017 + "I" + STRING016 + "N" + STRING015 + "E"
  677.     TSTRING022(1, 36) = "" + STRING014 + "YEAH!, ENTER A COO" + STRING015 + "L " + STRING017 + "L" + STRING016 + "I" + STRING015 + "N" + STRING014 + "E"
  678.     TSTRING022(1, 37) = "" + STRING014 + "YEAH!, ENTER A CO" + STRING015 + "O" + STRING016 + "L L" + STRING015 + "I" + STRING014 + "NE"
  679.     TSTRING022(1, 38) = "" + STRING014 + "YEAH!, ENTER A C" + STRING015 + "O" + STRING016 + "O" + STRING017 + "L " + STRING015 + "L" + STRING014 + "INE"
  680.     TSTRING022(1, 39) = "" + STRING014 + "YEAH!, ENTER A " + STRING015 + "C" + STRING016 + "O" + STRING017 + "O" + STRING016 + "L " + STRING014 + "LINE"
  681.     TSTRING022(1, 40) = "" + STRING014 + "YEAH!, ENTER A " + STRING016 + "C" + STRING017 + "O" + STRING016 + "O" + STRING015 + "L " + STRING014 + "LINE"
  682.     TSTRING022(1, 41) = "" + STRING014 + "YEAH!, ENTER " + STRING015 + "A " + STRING017 + "C" + STRING016 + "O" + STRING015 + "O" + STRING014 + "L LINE"
  683.     TSTRING022(1, 42) = "" + STRING014 + "YEAH!, ENTER " + STRING016 + "A C" + STRING015 + "O" + STRING014 + "OL LINE"
  684.     TSTRING022(1, 43) = "" + STRING014 + "YEAH!, ENTE" + STRING015 + "R " + STRING017 + "A " + STRING015 + "C" + STRING014 + "OOL LINE"
  685.     TSTRING022(1, 44) = "" + STRING014 + "YEAH!, ENT" + STRING015 + "E" + STRING016 + "R A " + STRING014 + "COOL LINE"
  686.     TSTRING022(1, 45) = "" + STRING014 + "YEAH!, EN" + STRING015 + "T" + STRING016 + "E" + STRING017 + "R " + STRING015 + "A " + STRING014 + "COOL LINE"
  687.     TSTRING022(1, 46) = "" + STRING014 + "YEAH!, E" + STRING015 + "N" + STRING016 + "T" + STRING017 + "E" + STRING016 + "R " + STRING014 + "A COOL LINE"
  688.     TSTRING022(1, 47) = "" + STRING014 + "YEAH!, " + STRING015 + "E" + STRING016 + "N" + STRING017 + "T" + STRING016 + "E" + STRING015 + "R " + STRING014 + "A COOL LINE"
  689.     TSTRING022(1, 48) = "" + STRING014 + "YEAH!, " + STRING016 + "E" + STRING017 + "N" + STRING016 + "T" + STRING015 + "E" + STRING014 + "R A COOL LINE"
  690.     TSTRING022(1, 49) = "" + STRING014 + "YEAH!" + STRING015 + ", " + STRING017 + "E" + STRING016 + "N" + STRING015 + "T" + STRING014 + "ER A COOL LINE"
  691.     TSTRING022(1, 50) = "" + STRING014 + "YEAH" + STRING015 + "!" + STRING016 + ", E" + STRING015 + "N" + STRING014 + "TER A COOL LINE"
  692.     TSTRING022(1, 51) = "" + STRING014 + "YEA" + STRING015 + "H" + STRING016 + "!" + STRING017 + ", " + STRING015 + "E" + STRING014 + "NTER A COOL LINE"
  693.     TSTRING022(1, 52) = "" + STRING014 + "YE" + STRING015 + "A" + STRING016 + "H" + STRING017 + "!" + STRING016 + ", " + STRING014 + "ENTER A COOL LINE"
  694.     TSTRING022(1, 53) = "" + STRING014 + "Y" + STRING015 + "E" + STRING016 + "A" + STRING017 + "H" + STRING016 + "!" + STRING015 + ", " + STRING014 + "ENTER A COOL LINE"
  695.     TSTRING022(1, 54) = "" + STRING014 + "" + STRING015 + "Y" + STRING016 + "E" + STRING017 + "A" + STRING016 + "H" + STRING015 + "!" + STRING014 + ", ENTER A COOL LINE"
  696.     TSTRING022(1, 55) = "" + STRING014 + "" + STRING016 + "Y" + STRING017 + "E" + STRING016 + "A" + STRING015 + "H" + STRING014 + "!, ENTER A COOL LINE"
  697.     TSTRING022(1, 56) = "" + STRING014 + "" + STRING017 + "Y" + STRING016 + "E" + STRING015 + "A" + STRING014 + "H!, ENTER A COOL LINE"
  698.     TSTRING022(1, 57) = "" + STRING014 + "" + STRING016 + "Y" + STRING015 + "E" + STRING014 + "AH!, ENTER A COOL LINE"
  699.     TSTRING022(1, 58) = "" + STRING014 + "" + STRING015 + "Y" + STRING014 + "EAH!, ENTER A COOL LINE"
  700.     TSTRING022(2, 1) = "" + STRING014 + "" + STRING014 + "NO WAY!, GET OUT OF HERE"
  701.     TSTRING022(2, 2) = "" + STRING014 + "" + STRING015 + "N" + STRING014 + "O WAY!, GET OUT OF HERE"
  702.     TSTRING022(2, 3) = "" + STRING014 + "" + STRING016 + "N" + STRING015 + "O " + STRING014 + "WAY!, GET OUT OF HERE"
  703.     TSTRING022(2, 4) = "" + STRING014 + "" + STRING017 + "N" + STRING016 + "O " + STRING014 + "WAY!, GET OUT OF HERE"
  704.     TSTRING022(2, 5) = "" + STRING014 + "" + STRING016 + "N" + STRING017 + "O " + STRING015 + "W" + STRING014 + "AY!, GET OUT OF HERE"
  705.     TSTRING022(2, 6) = "" + STRING014 + "" + STRING015 + "N" + STRING016 + "O W" + STRING015 + "A" + STRING014 + "Y!, GET OUT OF HERE"
  706.     TSTRING022(2, 7) = "" + STRING014 + "N" + STRING015 + "O " + STRING017 + "W" + STRING016 + "A" + STRING015 + "Y" + STRING014 + "!, GET OUT OF HERE"
  707.     TSTRING022(2, 8) = "" + STRING014 + "NO " + STRING016 + "W" + STRING017 + "A" + STRING016 + "Y" + STRING015 + "!" + STRING014 + ", GET OUT OF HERE"
  708.     TSTRING022(2, 9) = "" + STRING014 + "NO " + STRING015 + "W" + STRING016 + "A" + STRING017 + "Y" + STRING016 + "!" + STRING015 + ", " + STRING014 + "GET OUT OF HERE"
  709.     TSTRING022(2, 10) = "" + STRING014 + "NO W" + STRING015 + "A" + STRING016 + "Y" + STRING017 + "!" + STRING016 + ", " + STRING014 + "GET OUT OF HERE"
  710.     TSTRING022(2, 11) = "" + STRING014 + "NO WA" + STRING015 + "Y" + STRING016 + "!" + STRING017 + ", " + STRING015 + "G" + STRING014 + "ET OUT OF HERE"
  711.     TSTRING022(2, 12) = "" + STRING014 + "NO WAY" + STRING015 + "!" + STRING016 + ", G" + STRING015 + "E" + STRING014 + "T OUT OF HERE"
  712.     TSTRING022(2, 13) = "" + STRING014 + "NO WAY!" + STRING015 + ", " + STRING017 + "G" + STRING016 + "E" + STRING015 + "T " + STRING014 + "OUT OF HERE"
  713.     TSTRING022(2, 14) = "" + STRING014 + "NO WAY!, " + STRING016 + "G" + STRING017 + "E" + STRING016 + "T " + STRING014 + "OUT OF HERE"
  714.     TSTRING022(2, 15) = "" + STRING014 + "NO WAY!, " + STRING015 + "G" + STRING016 + "E" + STRING017 + "T " + STRING015 + "O" + STRING014 + "UT OF HERE"
  715.     TSTRING022(2, 16) = "" + STRING014 + "NO WAY!, G" + STRING015 + "E" + STRING016 + "T O" + STRING015 + "U" + STRING014 + "T OF HERE"
  716.     TSTRING022(2, 17) = "" + STRING014 + "NO WAY!, GE" + STRING015 + "T " + STRING017 + "O" + STRING016 + "U" + STRING015 + "T " + STRING014 + "OF HERE"
  717.     TSTRING022(2, 18) = "" + STRING014 + "NO WAY!, GET " + STRING016 + "O" + STRING017 + "U" + STRING016 + "T " + STRING014 + "OF HERE"
  718.     TSTRING022(2, 19) = "" + STRING014 + "NO WAY!, GET " + STRING015 + "O" + STRING016 + "U" + STRING017 + "T " + STRING015 + "O" + STRING014 + "F HERE"
  719.     TSTRING022(2, 20) = "" + STRING014 + "NO WAY!, GET O" + STRING015 + "U" + STRING016 + "T O" + STRING015 + "F " + STRING014 + "HERE"
  720.     TSTRING022(2, 21) = "" + STRING014 + "NO WAY!, GET OU" + STRING015 + "T " + STRING017 + "O" + STRING016 + "F " + STRING014 + "HERE"
  721.     TSTRING022(2, 22) = "" + STRING014 + "NO WAY!, GET OUT " + STRING016 + "O" + STRING017 + "F " + STRING015 + "H" + STRING014 + "ERE"
  722.     TSTRING022(2, 23) = "" + STRING014 + "NO WAY!, GET OUT " + STRING015 + "O" + STRING016 + "F H" + STRING015 + "E" + STRING014 + "RE"
  723.     TSTRING022(2, 24) = "" + STRING014 + "NO WAY!, GET OUT O" + STRING015 + "F " + STRING017 + "H" + STRING016 + "E" + STRING015 + "R" + STRING014 + "E"
  724.     TSTRING022(2, 25) = "" + STRING014 + "NO WAY!, GET OUT OF " + STRING016 + "H" + STRING017 + "E" + STRING016 + "R" + STRING015 + "E"
  725.     TSTRING022(2, 26) = "" + STRING014 + "NO WAY!, GET OUT OF " + STRING015 + "H" + STRING016 + "E" + STRING017 + "R" + STRING016 + "E"
  726.     TSTRING022(2, 27) = "" + STRING014 + "NO WAY!, GET OUT OF H" + STRING015 + "E" + STRING016 + "R" + STRING017 + "E"
  727.     TSTRING022(2, 28) = "" + STRING014 + "NO WAY!, GET OUT OF HE" + STRING015 + "R" + STRING016 + "E"
  728.     TSTRING022(2, 29) = "" + STRING014 + "NO WAY!, GET OUT OF HER" + STRING015 + "E"
  729.     TSTRING022(2, 30) = "" + STRING014 + "NO WAY!, GET OUT OF HERE"
  730.     TSTRING022(2, 31) = "" + STRING014 + "NO WAY!, GET OUT OF HER" + STRING015 + "E"
  731.     TSTRING022(2, 32) = "" + STRING014 + "NO WAY!, GET OUT OF HE" + STRING015 + "R" + STRING016 + "E"
  732.     TSTRING022(2, 33) = "" + STRING014 + "NO WAY!, GET OUT OF H" + STRING015 + "E" + STRING016 + "R" + STRING017 + "E"
  733.     TSTRING022(2, 34) = "" + STRING014 + "NO WAY!, GET OUT OF " + STRING015 + "H" + STRING016 + "E" + STRING017 + "R" + STRING016 + "E"
  734.     TSTRING022(2, 35) = "" + STRING014 + "NO WAY!, GET OUT OF " + STRING016 + "H" + STRING017 + "E" + STRING016 + "R" + STRING015 + "E"
  735.     TSTRING022(2, 36) = "" + STRING014 + "NO WAY!, GET OUT O" + STRING015 + "F " + STRING017 + "H" + STRING016 + "E" + STRING015 + "R" + STRING014 + "E"
  736.     TSTRING022(2, 37) = "" + STRING014 + "NO WAY!, GET OUT " + STRING015 + "O" + STRING016 + "F H" + STRING015 + "E" + STRING014 + "RE"
  737.     TSTRING022(2, 38) = "" + STRING014 + "NO WAY!, GET OUT " + STRING016 + "O" + STRING017 + "F " + STRING015 + "H" + STRING014 + "ERE"
  738.     TSTRING022(2, 39) = "" + STRING014 + "NO WAY!, GET OU" + STRING015 + "T " + STRING017 + "O" + STRING016 + "F " + STRING014 + "HERE"
  739.     TSTRING022(2, 40) = "" + STRING014 + "NO WAY!, GET O" + STRING015 + "U" + STRING016 + "T O" + STRING015 + "F " + STRING014 + "HERE"
  740.     TSTRING022(2, 41) = "" + STRING014 + "NO WAY!, GET " + STRING015 + "O" + STRING016 + "U" + STRING017 + "T " + STRING015 + "O" + STRING014 + "F HERE"
  741.     TSTRING022(2, 42) = "" + STRING014 + "NO WAY!, GET " + STRING016 + "O" + STRING017 + "U" + STRING016 + "T " + STRING014 + "OF HERE"
  742.     TSTRING022(2, 43) = "" + STRING014 + "NO WAY!, GE" + STRING015 + "T " + STRING017 + "O" + STRING016 + "U" + STRING015 + "T " + STRING014 + "OF HERE"
  743.     TSTRING022(2, 44) = "" + STRING014 + "NO WAY!, G" + STRING015 + "E" + STRING016 + "T O" + STRING015 + "U" + STRING014 + "T OF HERE"
  744.     TSTRING022(2, 45) = "" + STRING014 + "NO WAY!, " + STRING015 + "G" + STRING016 + "E" + STRING017 + "T " + STRING015 + "O" + STRING014 + "UT OF HERE"
  745.     TSTRING022(2, 46) = "" + STRING014 + "NO WAY!, " + STRING016 + "G" + STRING017 + "E" + STRING016 + "T " + STRING014 + "OUT OF HERE"
  746.     TSTRING022(2, 47) = "" + STRING014 + "NO WAY!" + STRING015 + ", " + STRING017 + "G" + STRING016 + "E" + STRING015 + "T " + STRING014 + "OUT OF HERE"
  747.     TSTRING022(2, 48) = "" + STRING014 + "NO WAY" + STRING015 + "!" + STRING016 + ", G" + STRING015 + "E" + STRING014 + "T OUT OF HERE"
  748.     TSTRING022(2, 49) = "" + STRING014 + "NO WA" + STRING015 + "Y" + STRING016 + "!" + STRING017 + ", " + STRING015 + "G" + STRING014 + "ET OUT OF HERE"
  749.     TSTRING022(2, 50) = "" + STRING014 + "NO W" + STRING015 + "A" + STRING016 + "Y" + STRING017 + "!" + STRING016 + ", " + STRING014 + "GET OUT OF HERE"
  750.     TSTRING022(2, 51) = "" + STRING014 + "NO " + STRING015 + "W" + STRING016 + "A" + STRING017 + "Y" + STRING016 + "!" + STRING015 + ", " + STRING014 + "GET OUT OF HERE"
  751.     TSTRING022(2, 52) = "" + STRING014 + "NO " + STRING016 + "W" + STRING017 + "A" + STRING016 + "Y" + STRING015 + "!" + STRING014 + ", GET OUT OF HERE"
  752.     TSTRING022(2, 53) = "" + STRING014 + "N" + STRING015 + "O " + STRING017 + "W" + STRING016 + "A" + STRING015 + "Y" + STRING014 + "!, GET OUT OF HERE"
  753.     TSTRING022(2, 54) = "" + STRING014 + "" + STRING015 + "N" + STRING016 + "O W" + STRING015 + "A" + STRING014 + "Y!, GET OUT OF HERE"
  754.     TSTRING022(2, 55) = "" + STRING014 + "" + STRING016 + "N" + STRING017 + "O " + STRING015 + "W" + STRING014 + "AY!, GET OUT OF HERE"
  755.     TSTRING022(2, 56) = "" + STRING014 + "" + STRING017 + "N" + STRING016 + "O " + STRING014 + "WAY!, GET OUT OF HERE"
  756.     TSTRING022(2, 57) = "" + STRING014 + "" + STRING016 + "N" + STRING015 + "O " + STRING014 + "WAY!, GET OUT OF HERE"
  757.     TSTRING022(2, 58) = "" + STRING014 + "" + STRING015 + "N" + STRING014 + "O WAY!, GET OUT OF HERE"
  758.     TSTRING022(3, 1) = "" + STRING014 + "" + STRING014 + "HMMMM, SHOW ME SOME INFO"
  759.     TSTRING022(3, 2) = "" + STRING014 + "" + STRING015 + "H" + STRING014 + "MMMM, SHOW ME SOME INFO"
  760.     TSTRING022(3, 3) = "" + STRING014 + "" + STRING016 + "H" + STRING015 + "M" + STRING014 + "MMM, SHOW ME SOME INFO"
  761.     TSTRING022(3, 4) = "" + STRING014 + "" + STRING017 + "H" + STRING016 + "M" + STRING015 + "M" + STRING014 + "MM, SHOW ME SOME INFO"
  762.     TSTRING022(3, 5) = "" + STRING014 + "" + STRING016 + "H" + STRING017 + "M" + STRING016 + "M" + STRING015 + "M" + STRING014 + "M, SHOW ME SOME INFO"
  763.     TSTRING022(3, 6) = "" + STRING014 + "" + STRING015 + "H" + STRING016 + "M" + STRING017 + "M" + STRING016 + "M" + STRING015 + "M" + STRING014 + ", SHOW ME SOME INFO"
  764.     TSTRING022(3, 7) = "" + STRING014 + "H" + STRING015 + "M" + STRING016 + "M" + STRING017 + "M" + STRING016 + "M" + STRING015 + ", " + STRING014 + "SHOW ME SOME INFO"
  765.     TSTRING022(3, 8) = "" + STRING014 + "HM" + STRING015 + "M" + STRING016 + "M" + STRING017 + "M" + STRING016 + ", " + STRING014 + "SHOW ME SOME INFO"
  766.     TSTRING022(3, 9) = "" + STRING014 + "HMM" + STRING015 + "M" + STRING016 + "M" + STRING017 + ", " + STRING015 + "S" + STRING014 + "HOW ME SOME INFO"
  767.     TSTRING022(3, 10) = "" + STRING014 + "HMMM" + STRING015 + "M" + STRING016 + ", S" + STRING015 + "H" + STRING014 + "OW ME SOME INFO"
  768.     TSTRING022(3, 11) = "" + STRING014 + "HMMMM" + STRING015 + ", " + STRING017 + "S" + STRING016 + "H" + STRING015 + "O" + STRING014 + "W ME SOME INFO"
  769.     TSTRING022(3, 12) = "" + STRING014 + "HMMMM, " + STRING016 + "S" + STRING017 + "H" + STRING016 + "O" + STRING015 + "W " + STRING014 + "ME SOME INFO"
  770.     TSTRING022(3, 13) = "" + STRING014 + "HMMMM, " + STRING015 + "S" + STRING016 + "H" + STRING017 + "O" + STRING016 + "W " + STRING014 + "ME SOME INFO"
  771.     TSTRING022(3, 14) = "" + STRING014 + "HMMMM, S" + STRING015 + "H" + STRING016 + "O" + STRING017 + "W " + STRING015 + "M" + STRING014 + "E SOME INFO"
  772.     TSTRING022(3, 15) = "" + STRING014 + "HMMMM, SH" + STRING015 + "O" + STRING016 + "W M" + STRING015 + "E " + STRING014 + "SOME INFO"
  773.     TSTRING022(3, 16) = "" + STRING014 + "HMMMM, SHO" + STRING015 + "W " + STRING017 + "M" + STRING016 + "E " + STRING014 + "SOME INFO"
  774.     TSTRING022(3, 17) = "" + STRING014 + "HMMMM, SHOW " + STRING016 + "M" + STRING017 + "E " + STRING015 + "S" + STRING014 + "OME INFO"
  775.     TSTRING022(3, 18) = "" + STRING014 + "HMMMM, SHOW " + STRING015 + "M" + STRING016 + "E S" + STRING015 + "O" + STRING014 + "ME INFO"
  776.     TSTRING022(3, 19) = "" + STRING014 + "HMMMM, SHOW M" + STRING015 + "E " + STRING017 + "S" + STRING016 + "O" + STRING015 + "M" + STRING014 + "E INFO"
  777.     TSTRING022(3, 20) = "" + STRING014 + "HMMMM, SHOW ME " + STRING016 + "S" + STRING017 + "O" + STRING016 + "M" + STRING015 + "E " + STRING014 + "INFO"
  778.     TSTRING022(3, 21) = "" + STRING014 + "HMMMM, SHOW ME " + STRING015 + "S" + STRING016 + "O" + STRING017 + "M" + STRING016 + "E " + STRING014 + "INFO"
  779.     TSTRING022(3, 22) = "" + STRING014 + "HMMMM, SHOW ME S" + STRING015 + "O" + STRING016 + "M" + STRING017 + "E " + STRING015 + "I" + STRING014 + "NFO"
  780.     TSTRING022(3, 23) = "" + STRING014 + "HMMMM, SHOW ME SO" + STRING015 + "M" + STRING016 + "E I" + STRING015 + "N" + STRING014 + "FO"
  781.     TSTRING022(3, 24) = "" + STRING014 + "HMMMM, SHOW ME SOM" + STRING015 + "E " + STRING017 + "I" + STRING016 + "N" + STRING015 + "F" + STRING014 + "O"
  782.     TSTRING022(3, 25) = "" + STRING014 + "HMMMM, SHOW ME SOME " + STRING016 + "I" + STRING017 + "N" + STRING016 + "F" + STRING015 + "O"
  783.     TSTRING022(3, 26) = "" + STRING014 + "HMMMM, SHOW ME SOME " + STRING015 + "I" + STRING016 + "N" + STRING017 + "F" + STRING016 + "O"
  784.     TSTRING022(3, 27) = "" + STRING014 + "HMMMM, SHOW ME SOME I" + STRING015 + "N" + STRING016 + "F" + STRING017 + "O"
  785.     TSTRING022(3, 28) = "" + STRING014 + "HMMMM, SHOW ME SOME IN" + STRING015 + "F" + STRING016 + "O"
  786.     TSTRING022(3, 29) = "" + STRING014 + "HMMMM, SHOW ME SOME INF" + STRING015 + "O"
  787.     TSTRING022(3, 30) = "" + STRING014 + "HMMMM, SHOW ME SOME INFO"
  788.     TSTRING022(3, 31) = "" + STRING014 + "HMMMM, SHOW ME SOME INF" + STRING015 + "O"
  789.     TSTRING022(3, 32) = "" + STRING014 + "HMMMM, SHOW ME SOME IN" + STRING015 + "F" + STRING016 + "O"
  790.     TSTRING022(3, 33) = "" + STRING014 + "HMMMM, SHOW ME SOME I" + STRING015 + "N" + STRING016 + "F" + STRING017 + "O"
  791.     TSTRING022(3, 34) = "" + STRING014 + "HMMMM, SHOW ME SOME " + STRING015 + "I" + STRING016 + "N" + STRING017 + "F" + STRING016 + "O"
  792.     TSTRING022(3, 35) = "" + STRING014 + "HMMMM, SHOW ME SOME " + STRING016 + "I" + STRING017 + "N" + STRING016 + "F" + STRING015 + "O"
  793.     TSTRING022(3, 36) = "" + STRING014 + "HMMMM, SHOW ME SOM" + STRING015 + "E " + STRING017 + "I" + STRING016 + "N" + STRING015 + "F" + STRING014 + "O"
  794.     TSTRING022(3, 37) = "" + STRING014 + "HMMMM, SHOW ME SO" + STRING015 + "M" + STRING016 + "E I" + STRING015 + "N" + STRING014 + "FO"
  795.     TSTRING022(3, 38) = "" + STRING014 + "HMMMM, SHOW ME S" + STRING015 + "O" + STRING016 + "M" + STRING017 + "E " + STRING015 + "I" + STRING014 + "NFO"
  796.     TSTRING022(3, 39) = "" + STRING014 + "HMMMM, SHOW ME " + STRING015 + "S" + STRING016 + "O" + STRING017 + "M" + STRING016 + "E " + STRING014 + "INFO"
  797.     TSTRING022(3, 40) = "" + STRING014 + "HMMMM, SHOW ME " + STRING016 + "S" + STRING017 + "O" + STRING016 + "M" + STRING015 + "E " + STRING014 + "INFO"
  798.     TSTRING022(3, 41) = "" + STRING014 + "HMMMM, SHOW M" + STRING015 + "E " + STRING017 + "S" + STRING016 + "O" + STRING015 + "M" + STRING014 + "E INFO"
  799.     TSTRING022(3, 42) = "" + STRING014 + "HMMMM, SHOW " + STRING015 + "M" + STRING016 + "E S" + STRING015 + "O" + STRING014 + "ME INFO"
  800.     TSTRING022(3, 43) = "" + STRING014 + "HMMMM, SHOW " + STRING016 + "M" + STRING017 + "E " + STRING015 + "S" + STRING014 + "OME INFO"
  801.     TSTRING022(3, 44) = "" + STRING014 + "HMMMM, SHO" + STRING015 + "W " + STRING017 + "M" + STRING016 + "E " + STRING014 + "SOME INFO"
  802.     TSTRING022(3, 45) = "" + STRING014 + "HMMMM, SH" + STRING015 + "O" + STRING016 + "W M" + STRING015 + "E " + STRING014 + "SOME INFO"
  803.     TSTRING022(3, 46) = "" + STRING014 + "HMMMM, S" + STRING015 + "H" + STRING016 + "O" + STRING017 + "W " + STRING015 + "M" + STRING014 + "E SOME INFO"
  804.     TSTRING022(3, 47) = "" + STRING014 + "HMMMM, " + STRING015 + "S" + STRING016 + "H" + STRING017 + "O" + STRING016 + "W " + STRING014 + "ME SOME INFO"
  805.     TSTRING022(3, 48) = "" + STRING014 + "HMMMM, " + STRING016 + "S" + STRING017 + "H" + STRING016 + "O" + STRING015 + "W " + STRING014 + "ME SOME INFO"
  806.     TSTRING022(3, 49) = "" + STRING014 + "HMMMM" + STRING015 + ", " + STRING017 + "S" + STRING016 + "H" + STRING015 + "O" + STRING014 + "W ME SOME INFO"
  807.     TSTRING022(3, 50) = "" + STRING014 + "HMMM" + STRING015 + "M" + STRING016 + ", S" + STRING015 + "H" + STRING014 + "OW ME SOME INFO"
  808.     TSTRING022(3, 51) = "" + STRING014 + "HMM" + STRING015 + "M" + STRING016 + "M" + STRING017 + ", " + STRING015 + "S" + STRING014 + "HOW ME SOME INFO"
  809.     TSTRING022(3, 52) = "" + STRING014 + "HM" + STRING015 + "M" + STRING016 + "M" + STRING017 + "M" + STRING016 + ", " + STRING014 + "SHOW ME SOME INFO"
  810.     TSTRING022(3, 53) = "" + STRING014 + "H" + STRING015 + "M" + STRING016 + "M" + STRING017 + "M" + STRING016 + "M" + STRING015 + ", " + STRING014 + "SHOW ME SOME INFO"
  811.     TSTRING022(3, 54) = "" + STRING014 + "" + STRING015 + "H" + STRING016 + "M" + STRING017 + "M" + STRING016 + "M" + STRING015 + "M" + STRING014 + ", SHOW ME SOME INFO"
  812.     TSTRING022(3, 55) = "" + STRING014 + "" + STRING016 + "H" + STRING017 + "M" + STRING016 + "M" + STRING015 + "M" + STRING014 + "M, SHOW ME SOME INFO"
  813.     TSTRING022(3, 56) = "" + STRING014 + "" + STRING017 + "H" + STRING016 + "M" + STRING015 + "M" + STRING014 + "MM, SHOW ME SOME INFO"
  814.     TSTRING022(3, 57) = "" + STRING014 + "" + STRING016 + "H" + STRING015 + "M" + STRING014 + "MMM, SHOW ME SOME INFO"
  815.     TSTRING022(3, 58) = "" + STRING014 + "" + STRING015 + "H" + STRING014 + "MMMM, SHOW ME SOME INFO"
  816.     TSTRING022(4, 1) = "" + STRING018 + "" + STRING019 + "εLîTε!" + STRING018 + "  NORMAL" + STRING018 + ""
  817.     TSTRING022(4, 2) = "" + STRING018 + "ε" + STRING019 + "LîTε! " + STRING018 + " NORMAL" + STRING018 + ""
  818.     TSTRING022(4, 3) = "" + STRING018 + "εL" + STRING019 + "îTε!  " + STRING018 + "NORMAL" + STRING018 + ""
  819.     TSTRING022(4, 4) = "" + STRING018 + "εLî" + STRING019 + "Tε!  N" + STRING018 + "ORMAL" + STRING018 + ""
  820.     TSTRING022(4, 5) = "" + STRING018 + "εLîT" + STRING019 + "ε!  NO" + STRING018 + "RMAL" + STRING018 + ""
  821.     TSTRING022(4, 6) = "" + STRING018 + "εLîTε" + STRING019 + "!  NOR" + STRING018 + "MAL" + STRING018 + ""
  822.     TSTRING022(4, 7) = "" + STRING018 + "εLîTε!" + STRING019 + "  NORM" + STRING018 + "AL" + STRING018 + ""
  823.     TSTRING022(4, 8) = "" + STRING018 + "εLîTε! " + STRING019 + " NORMA" + STRING018 + "L" + STRING018 + ""
  824.     TSTRING022(4, 9) = "" + STRING018 + "εLîTε!  " + STRING019 + "NORMAL" + STRING018 + "" + STRING018 + ""
  825.     TSTRING022(5, 1) = " @X08[@X0FNUKE@X08][@X08w@X07h@X0Fo@X08][@X08r@X07e@X0Fstore@X08][@X08c@X07o@X0Fnfig@X08]  "
  826.     TSTRING022(5, 2) = " @X08[@X08n@X07u@X0Fke@X08][@X0FWHO@X08][@X08r@X07e@X0Fstore@X08][@X08c@X07o@X0Fnfig@X08]  "
  827.     TSTRING022(5, 3) = " @X08[@X08n@X07u@X0Fke@X08][@X08w@X07h@X0Fo@X08][@X0FRESTORE@X08][@X08c@X07o@X0Fnfig@X08]  "
  828.     TSTRING022(5, 4) = " @X08[@X08n@X07u@X0Fke@X08][@X08w@X07h@X0Fo@X08][@X08r@X07e@X0Fstore@X08][@X0FCONFIG@X08]  "
  829.     TSTRING020(1, 1) = "|"
  830.     TSTRING020(1, 2) = "/"
  831.     TSTRING020(1, 3) = "-"
  832.     TSTRING020(1, 4) = "\"
  833.     :LABEL041
  834.     TSTRING022(INTEGER012, INTEGER011) = Replace(TSTRING022(INTEGER012, INTEGER011), " ", "·")
  835.     Inc INTEGER013
  836.     If (INTEGER014 > 8) Goto LABEL042
  837.     If (INTEGER013 > 10) Gosub LABEL043
  838.     Inc TSTRING021(1)
  839.     AnsiPos 45, 12
  840.     Print "", TSTRING020(1, TSTRING021(1))
  841.     If (TSTRING021(1) > 4) TSTRING021(1) = 0
  842.     :LABEL042
  843.     Inc INTEGER011
  844.     If (INTEGER011 > 59) Inc INTEGER012
  845.     If (INTEGER011 > 59) INTEGER011 = 1
  846.     If (INTEGER012 > 3) FClose 1
  847.     If (INTEGER012 > 3) Return
  848.     Goto LABEL041
  849.     :LABEL043
  850.     Inc INTEGER014
  851.     FOpen 1, PPEPath() + "LINERS.DAT", 2, 0
  852.     FGet 1, TSTRING012(INTEGER014)
  853.     FGet 1, TSTRING013(INTEGER014)
  854.     If (INTEGER007 > U_Sec) TSTRING012(INTEGER014) = STRING005
  855.     PROC001(28, 12 + INTEGER014, STRING014 + TSTRING012(INTEGER014))
  856.     INTEGER013 = 1
  857.     Return
  858.     :LABEL044
  859.     AnsiPos 5, 13
  860.     Print "                                           "
  861.     AnsiPos 5, 14
  862.     Print "                                           "
  863.     AnsiPos 5, 15
  864.     Print "                                           "
  865.     AnsiPos 5, 16
  866.     Print "                                           "
  867.     AnsiPos 5, 17
  868.     Print "                                           "
  869.     AnsiPos 5, 18
  870.     Print "                                           "
  871.     AnsiPos 5, 19
  872.     Print "                                           "
  873.     AnsiPos 5, 20
  874.     Print "                                           "
  875.     AnsiPos 5, 21
  876.     Print "                                           "
  877.     Return
  878.     :LABEL045
  879.     Gosub LABEL044
  880.     PROC001(28, 13, STRING014 + TSTRING012(1))
  881.     PROC001(28, 14, STRING014 + TSTRING012(2))
  882.     PROC001(28, 15, STRING014 + TSTRING012(3))
  883.     PROC001(28, 16, STRING014 + TSTRING012(4))
  884.     PROC001(28, 17, STRING014 + TSTRING012(5))
  885.     PROC001(28, 18, STRING014 + TSTRING012(6))
  886.     PROC001(28, 19, STRING014 + TSTRING012(7))
  887.     PROC001(28, 20, STRING014 + TSTRING012(8))
  888.     PROC001(28, 21, STRING014 + TSTRING012(9))
  889.     Return
  890.     :LABEL046
  891.     FOpen 1, PPEPath() + "LINEDATA.DAT", 2, 0
  892.     FGet 1, INTEGER010
  893.     FGet 1, STRING010
  894.     FGet 1, STRING011
  895.     FClose 1
  896.     Return
  897.     :LABEL047
  898.     FOpen 1, PPEPath() + "LAST5.DAT", 2, 0
  899.     FGet 1, TSTRING007(1)
  900.     FGet 1, TSTRING007(2)
  901.     FGet 1, TSTRING007(3)
  902.     FGet 1, TSTRING007(4)
  903.     FGet 1, TSTRING007(5)
  904.     FClose 1
  905.     Return
  906.     :LABEL048
  907.     AnsiPos 53, 13
  908.     Print "                        "
  909.     AnsiPos 53, 14
  910.     Print "                        "
  911.     AnsiPos 53, 15
  912.     Print "                        "
  913.     AnsiPos 53, 16
  914.     Print "                        "
  915.     AnsiPos 53, 17
  916.     Print "                        "
  917.     Return
  918.     :LABEL049
  919.     AnsiPos 53, 14
  920.     Print "   @X07TOT. LINE: ", INTEGER010
  921.     AnsiPos 53, 15
  922.     Print "   @X07LAST DATE: ", STRING010
  923.     AnsiPos 53, 16
  924.     Print "   @X07LAST TIME: ", STRING011
  925.     Return
  926.     :LABEL050
  927.     AnsiPos 53, 13
  928.     Print "@X071: " + Left(TSTRING007(5), 18)
  929.     AnsiPos 53, 14
  930.     Print "@X072: " + Left(TSTRING007(4), 18)
  931.     AnsiPos 53, 15
  932.     Print "@X073: " + Left(TSTRING007(3), 18)
  933.     AnsiPos 53, 16
  934.     Print "@X074: ", Left(TSTRING007(2), 18)
  935.     AnsiPos 53, 17
  936.     Print "@X075: ", Left(TSTRING007(1), 18)
  937.     Return
  938.     :LABEL051
  939.     AnsiPos 53, 13
  940.     Print "@X0F "
  941.     AnsiPos 53, 14
  942.     Print "     @X08C@X07O@X0FDED BY ORS@X07O@X08N"
  943.     AnsiPos 53, 15
  944.     Print "    @X08A@X07N@X0FSI BY RENEGA@X07D@X08E"
  945.     AnsiPos 53, 16
  946.     Print "  @X08F@X07O@X0FR PROViDENCE 199@X076@X08!"
  947.     Return
  948.     :LABEL052
  949.     Gosub LABEL044
  950.     PROC001(28, 14, STRING014 + "PiE LINER VER [2.00]")
  951.     PROC001(28, 15, STRING014 + "THE ONE AND ONLY ONELINER")
  952.     PROC001(28, 16, STRING014 + "AROUND!")
  953.     PROC001(28, 17, STRING014 + "CODE: ORSON")
  954.     PROC001(28, 18, STRING014 + "ANSI: RENEGADE")
  955.     PROC001(28, 20, STRING014 + "[PRESS ENTER]")
  956.     PROC002()
  957.     Gosub LABEL045
  958.     Return
  959.     :LABEL053
  960.     Delete PPEPath() + "LINERS.DAT"
  961.     FOpen 1, PPEPath() + "LINERS.DAT", 2, 0
  962.     FPutLn 1, "", TSTRING012(1)
  963.     FPutLn 1, "", TSTRING013(1)
  964.     FPutLn 1, "", TSTRING012(2)
  965.     FPutLn 1, "", TSTRING013(2)
  966.     FPutLn 1, "", TSTRING012(3)
  967.     FPutLn 1, "", TSTRING013(3)
  968.     FPutLn 1, "", TSTRING012(4)
  969.     FPutLn 1, "", TSTRING013(4)
  970.     FPutLn 1, "", TSTRING012(5)
  971.     FPutLn 1, "", TSTRING013(5)
  972.     FPutLn 1, "", TSTRING012(6)
  973.     FPutLn 1, "", TSTRING013(6)
  974.     FPutLn 1, "", TSTRING012(7)
  975.     FPutLn 1, "", TSTRING013(7)
  976.     FPutLn 1, "", TSTRING012(8)
  977.     FPutLn 1, "", TSTRING013(8)
  978.     FPutLn 1, "", TSTRING012(9)
  979.     FPutLn 1, "", TSTRING013(9)
  980.     Return
  981.     :LABEL054
  982.     FOpen 1, PPEPath() + "ONELINE.CNF", 2, 0
  983.     FPutLn 1, "20"
  984.     FPutLn 1, "110"
  985.     FPutLn 1, "FUCKING NUKED BY SYSOP!.."
  986.     FPutLn 1, "FUCKING TO LOW AXX TO SEE ONELINERS"
  987.     FPutLn 1, "@X08"
  988.     FPutLn 1, "@X05"
  989.     FPutLn 1, "@X0D"
  990.     FPutLn 1, "@X0F"
  991.     FPutLn 1, "@X08"
  992.     FPutLn 1, "@X78"
  993.     FPutLn 1, "------------------------------------------------"
  994.     FPutLn 1, " ONELINE.CNF - the main ppe config file."
  995.     FPutLn 1, "------------------------------------------------"
  996.     FPutLn 1, " Line 1: Minimum securaty for users to see lines."
  997.     FPutLn 1, " Line 2: Sysop securaty, (if user sec > line 2) then they can nuke."
  998.     FPutLn 1, " Line 3: The nuke string."
  999.     FPutLn 1, " Line 4: The lowaxx string."
  1000.     FPutLn 1, " Line 5-8: Colors in lightbars"
  1001.     FPutLn 1, " Line 9-10: The sliding lightbar color."
  1002.     FClose 1
  1003.     Return
  1004.     :LABEL055
  1005.     FOpen 1, PPEPath() + "WORDS.DAT", 2, 0
  1006.     FPutLn 1, "@WHO@"
  1007.     FPutLn 1, "@BOARDNAME@"
  1008.     FPutLn 1, "@DELAY"
  1009.     FPutLn 1, "@CLS"
  1010.     FPutLn 1, "BBS"
  1011.     FPutLn 1, "CALL"
  1012.     FPutLn 1, "LAMER"
  1013.     FPutLn 1, "I RULE"
  1014.     FPutLn 1, "I REWL"
  1015.     FPutLn 1, "REWL"
  1016.     FPutLn 1, "RULE"
  1017.     FPutLn 1, "+46"
  1018.     FPutLn 1, "*END*"
  1019.     FPutLn 1, "*END*"
  1020.     FPutLn 1, "________________________________________________"
  1021.     FPutLn 1, " WORDS.DAT - Add your favorite hate words =) "
  1022.     FPutLn 1, " must end with 2x *END* !"
  1023.     FClose 1
  1024.     Return
  1025.     :LABEL056
  1026.     FOpen 1, PPEPath() + "LINERS.DAT", 2, 0
  1027.     FPutLn 1, " ▄▄▓▄▓▄▄▄▄▄ ▀ ■▄▄▄▄▓  ▄▄▄▓▄▄▄▄▓▄    "
  1028.     FPutLn 1, "ORSON"
  1029.     FPutLn 1, "  █▄██▓ ▐▄██▄  ░█████▌ █████ ██▓▄▓  "
  1030.     FPutLn 1, "RENEGADE"
  1031.     FPutLn 1, "  ▓████  █▓██▌  ███▓█  █▓███ ▐██▓█▌ "
  1032.     FPutLn 1, "ORSON"
  1033.     FPutLn 1, " ▐██▓██  █▄██▌ ▐█▓███ ▐█████ ▐██▄█▌ "
  1034.     FPutLn 1, "RENEGADE"
  1035.     FPutLn 1, " ▐█████  ██▓▀  ▐█▄███ ▐██▓██▄█▀▓█▀  "
  1036.     FPutLn 1, "ORSON"
  1037.     FPutLn 1, "  █████■▄▀▀  ▒  ███▓█  █████ ▄▄▄▓▄  "
  1038.     FPutLn 1, "RENEGADE"
  1039.     FPutLn 1, "  ██▀▐█  ▄▓▄▄▓ ▄██▓█▓  ▀■███ ████▓  "
  1040.     FPutLn 1, "ORSON"
  1041.     FPutLn 1, " ▓▀▓▀▀▀▀ █  ▀█ ▓▀▀▀▀▀▓ █▄▄ ▓▀▓▀▀▀   "
  1042.     FPutLn 1, "RENEGADE"
  1043.     FPutLn 1, "      Code ORSON, Ansi RENEGâDE     "
  1044.     FPutLn 1, "ORSON"
  1045.     FClose 1
  1046.     Return
  1047.     :LABEL057
  1048.     FOpen 1, PPEPath() + "LINEDATA.DAT", 2, 0
  1049.     FPutLn 1, "9"
  1050.     FPutLn 1, "00-00-00"
  1051.     FPutLn 1, "00:00"
  1052.     FClose 1
  1053.     Return
  1054.     :LABEL058
  1055.     FOpen 1, PPEPath() + "LAST5.DAT", 2, 0
  1056.     FPutLn 1, "ORSON"
  1057.     FPutLn 1, "RENEGADE"
  1058.     FPutLn 1, "ORSON"
  1059.     FPutLn 1, "RENEGADE"
  1060.     FPutLn 1, "ORSON"
  1061.     FClose 1
  1062.     Return
  1063.     :LABEL059
  1064.     TSTRING012(1) = " ▄▄▓▄▓▄▄▄▄▄ ▀ ■▄▄▄▄▓  ▄▄▄▓▄▄▄▄▓▄    "
  1065.     TSTRING013(1) = "ORSON"
  1066.     TSTRING012(2) = "  █▄██▓ ▐▄██▄  ░█████▌ █████ ██▓▄▓  "
  1067.     TSTRING013(2) = "RENEGADE"
  1068.     TSTRING012(3) = "  ▓████  █▓██▌  ███▓█  █▓███ ▐██▓█▌ "
  1069.     TSTRING013(3) = "ORSON"
  1070.     TSTRING012(4) = " ▐██▓██  █▄██▌ ▐█▓███ ▐█████ ▐██▄█▌ "
  1071.     TSTRING013(4) = "RENEGADE"
  1072.     TSTRING012(5) = " ▐█████  ██▓▀  ▐█▄███ ▐██▓██▄█▀▓█▀  "
  1073.     TSTRING013(5) = "ORSON"
  1074.     TSTRING012(6) = "  █████■▄▀▀  ▒  ███▓█  █████ ▄▄▄▓▄  "
  1075.     TSTRING013(6) = "RENEGADE"
  1076.     TSTRING012(7) = "  ██▀▐█  ▄▓▄▄▓ ▄██▓█▓  ▀■███ ████▓  "
  1077.     TSTRING013(7) = "ORSON"
  1078.     TSTRING012(8) = " ▓▀▓▀▀▀▀ █  ▀█ ▓▀▀▀▀▀▓ █▄▄ ▓▀▓▀▀▀   "
  1079.     TSTRING013(8) = "RENEGADE"
  1080.     TSTRING012(9) = "      Code ORSON, Ansi RENEGâDE     "
  1081.     TSTRING013(9) = "ORSON"
  1082.     Delete PPEPath() + "last5.DAT"
  1083.     Delete PPEPath() + "words.DAT"
  1084.     Delete PPEPath() + "oneline.cnf"
  1085.     Delete PPEPath() + "LINEDATA.DAT"
  1086.     Gosub LABEL058
  1087.     Gosub LABEL057
  1088.     Gosub LABEL055
  1089.     Gosub LABEL054
  1090.     Return
  1091.     End
  1092.  
  1093. ;------------------------------------------------------------------------------
  1094.  
  1095.     Procedure PROC001(Integer INTEGER017, Integer INTEGER018, String STRING024)
  1096.  
  1097.     INTEGER001 = InStr(STRING024, "@WHO")
  1098.     If (INTEGER001 == 1) STRING024 = Replace(STRING024, "@", "")
  1099.     INTEGER001 = InStr(STRING024, "@CLS")
  1100.     If (INTEGER001 == 1) STRING024 = Replace(STRING024, "@", "")
  1101.     INTEGER001 = InStr(STRING024, "@BOARDNAME")
  1102.     If (INTEGER001 == 1) STRING024 = Replace(STRING024, "@", "")
  1103.     INTEGER001 = InStr(STRING024, "@DELAY")
  1104.     If (INTEGER001 == 1) STRING024 = Replace(STRING024, "@", "")
  1105.     INTEGER001 = 0
  1106.     AnsiPos INTEGER017 - Len(STRING024) / 2, INTEGER018
  1107.     Color 7
  1108.     Print Chr(34)
  1109.     Color 8
  1110.     Print STRING024
  1111.     Color 7
  1112.     Print Chr(34) + " "
  1113.     AnsiPos INTEGER017 + Len(STRING024) / 2, INTEGER018
  1114.     STRING024 = Replace(STRING024, "", "@")
  1115.  
  1116.     EndProc
  1117.  
  1118.  
  1119. ;------------------------------------------------------------------------------
  1120.  
  1121.     Procedure PROC002()
  1122.  
  1123.     :LABEL060
  1124.     STRING002 = Inkey()
  1125.     If (STRING002 == Chr(13)) Goto LABEL061
  1126.     Goto LABEL060
  1127.     :LABEL061
  1128.  
  1129.     EndProc
  1130.  
  1131.     :LABEL062
  1132.     If (Exist(PPEPath() + "CONFIG.PPE")) Then
  1133.         Gosub LABEL044
  1134.         FClose 1
  1135.         Call PPEPath() + "CONFIG.PPE"
  1136.         Gosub LABEL045
  1137.         Return
  1138.     Endif
  1139.     Gosub LABEL048
  1140.     AnsiPos 53, 13
  1141.     Print "@X04 WARNING FILE IS -"
  1142.     AnsiPos 53, 14
  1143.     Print "@X04 MISSING: CONFIG.PPE"
  1144.     AnsiPos 53, 15
  1145.     Print "@X08 SORRY YOU CANT CONTINUE"
  1146.     AnsiPos 53, 16
  1147.     Print "@X08 THIS OPERATION!"
  1148.     Return
  1149.  
  1150. ;------------------------------------------------------------------------------
  1151. ;
  1152. ; Usage report (before postprocessing)
  1153. ;
  1154. ; ■ Statements used :
  1155. ;
  1156. ;    3       End
  1157. ;    1       Cls
  1158. ;    3       Color 
  1159. ;    66      Goto 
  1160. ;    278     Let 
  1161. ;    148     Print 
  1162. ;    140     If 
  1163. ;    1       DispFile 
  1164. ;    14      FOpen 
  1165. ;    16      FClose 
  1166. ;    21      FGet 
  1167. ;    106     FPutLn 
  1168. ;    3       GetUser
  1169. ;    8       Delete 
  1170. ;    3       Log 
  1171. ;    53      Gosub 
  1172. ;    33      Return
  1173. ;    39      Delay 
  1174. ;    18      Inc 
  1175. ;    4       Dec 
  1176. ;    1       Call 
  1177. ;    150     AnsiPos 
  1178. ;    2       EndProc
  1179. ;
  1180. ;
  1181. ; ■ Functions used :
  1182. ;
  1183. ;    2       /
  1184. ;    1971    +
  1185. ;    10      -
  1186. ;    93      ==
  1187. ;    11      <
  1188. ;    1       <=
  1189. ;    21      >
  1190. ;    5       >=
  1191. ;    9       !
  1192. ;    3       Len(
  1193. ;    13      Upper()
  1194. ;    11      Left()
  1195. ;    51      Chr()
  1196. ;    6       InStr()
  1197. ;    1       Date()
  1198. ;    1       Time()
  1199. ;    2       U_Name()
  1200. ;    12      Replace()
  1201. ;    11      Inkey()
  1202. ;    33      PPEPath()
  1203. ;    9       Exist()
  1204. ;
  1205. ;------------------------------------------------------------------------------
  1206. ;
  1207. ; Analysis flags : C
  1208. ;
  1209. ; C - Call child PPE ■ 3
  1210. ;     This is usually normal, but may be a tricky way to launch some
  1211. ;     sysop-only commands.
  1212. ;     ■ Search for : CALL
  1213. ;
  1214. ;------------------------------------------------------------------------------
  1215. ;
  1216. ; Postprocessing report
  1217. ;
  1218. ;    0       For/Next
  1219. ;    0       While/EndWhile
  1220. ;    1       If/Then or If/Then/Else
  1221. ;    0       Select Case
  1222. ;
  1223. ;------------------------------------------------------------------------------
  1224. ;                 AEGiS Corp - Break the routines, code against the machines!
  1225. ;------------------------------------------------------------------------------
  1226.